/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / admin / ra / raprogs / lcnames

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 13 f4 3e 20 3a | 30 2e 24 2e 4c 43 6e 61 |.....> :|0.$.LCna|
|00000010| 6d 65 73 0d 00 14 46 f4 | 20 70 72 6f 67 72 61 6d |mes...F.| program|
|00000020| 20 74 61 6b 65 73 20 6e | 61 6d 65 73 20 66 72 6f | takes n|ames fro|
|00000030| 6d 20 4c 43 20 44 61 74 | 61 20 66 69 6c 65 73 20 |m LC Dat|a files |
|00000040| 61 6e 64 20 69 6e 73 65 | 72 74 73 20 74 68 65 6d |and inse|rts them|
|00000050| 20 69 6e 20 70 6c 61 63 | 65 0d 00 1e 42 f4 20 6f | in plac|e...B. o|
|00000060| 66 20 4e 20 69 6e 20 74 | 68 65 20 45 44 49 54 20 |f N in t|he EDIT |
|00000070| 66 69 6c 65 20 6d 65 72 | 67 65 66 31 2e 20 4c 43 |file mer|gef1. LC|
|00000080| 20 64 61 74 61 20 66 69 | 6c 65 73 20 61 72 65 20 | data fi|les are |
|00000090| 70 72 6f 64 75 63 65 64 | 20 62 79 0d 00 28 47 f4 |produced| by..(G.|
|000000a0| 20 50 72 6f 67 72 61 6d | 20 4c 43 46 49 4c 45 2e | Program| LCFILE.|
|000000b0| 20 57 68 65 6e 20 6e 65 | 77 20 6d 65 72 67 65 20 | When ne|w merge |
|000000c0| 66 31 20 69 73 20 64 72 | 6f 70 70 65 64 20 69 6e |f1 is dr|opped in|
|000000d0| 20 49 6d 70 72 65 73 73 | 69 6f 6e 20 77 69 6e 64 | Impress|ion wind|
|000000e0| 6f 77 0d 00 32 25 f4 20 | 46 72 6f 6e 74 20 63 6f |ow..2%. |Front co|
|000000f0| 76 65 72 20 66 6f 72 6d | 61 74 20 69 73 20 70 72 |ver form|at is pr|
|00000100| 6f 64 75 63 65 64 2e 0d | 00 3c 04 0d 00 46 04 0d |oduced..|.<...F..|
|00000110| 00 50 29 de 20 62 25 28 | 35 30 29 20 3a f4 20 74 |.P). b%(|50) :. t|
|00000120| 65 6d 70 6f 72 61 72 79 | 20 73 74 6f 72 65 20 66 |emporary| store f|
|00000130| 6f 72 20 6e 61 6d 65 73 | 0d 00 5a 04 0d 00 64 05 |or names|..Z...d.|
|00000140| f5 0d 00 6e 45 20 e8 22 | 46 69 6c 65 20 6e 61 6d |...nE ."|File nam|
|00000150| 65 20 6f 66 20 4c 43 20 | 6e 61 6d 65 73 20 65 67 |e of LC |names eg|
|00000160| 20 4c 43 42 55 52 22 3b | 4c 43 24 20 20 20 20 3a | LCBUR";|LC$    :|
|00000170| f4 20 73 6f 75 72 63 65 | 20 66 69 6c 65 20 6f 66 |. source| file of|
|00000180| 20 6e 61 6d 65 73 0d 00 | 78 2d 20 e8 22 54 75 74 | names..|x- ."Tut|
|00000190| 6f 72 20 6e 61 6d 65 20 | 66 6f 72 20 72 65 70 6f |or name |for repo|
|000001a0| 72 74 20 65 67 20 32 20 | 42 75 72 64 6f 6e 22 3b |rt eg 2 |Burdon";|
|000001b0| 54 4e 24 0d 00 82 0e 20 | 20 58 3d ad 28 4c 43 24 |TN$.... | X=.(LC$|
|000001c0| 29 0d 00 8c 14 20 20 59 | 3d ad 28 22 6d 65 72 67 |)....  Y|=.("merg|
|000001d0| 65 66 31 22 29 0d 00 96 | 3f 20 20 5a 3d ae 28 4c |ef1")...|?  Z=.(L|
|000001e0| 43 24 2b 22 4d 22 29 20 | 20 20 20 3a f4 20 6f 70 |C$+"M") |   :. op|
|000001f0| 65 6e 20 61 20 66 69 6c | 65 20 74 6f 20 77 72 69 |en a fil|e to wri|
|00000200| 74 65 20 6e 65 77 20 6d | 65 72 67 65 20 66 69 6c |te new m|erge fil|
|00000210| 65 20 74 6f 0d 00 a0 04 | 0d 00 aa 05 f5 0d 00 b4 |e to....|........|
|00000220| 04 0d 00 be 0b 20 20 49 | 25 3d 2d 31 0d 00 c8 06 |.....  I|%=-1....|
|00000230| 20 f5 0d 00 d2 42 20 20 | 49 25 3d 49 25 2b 31 20 | ....B  |I%=I%+1 |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |        |     :. |
|00000250| 72 65 61 64 20 61 20 6e | 61 6d 65 20 66 72 6f 6d |read a n|ame from|
|00000260| 20 73 6f 75 72 63 65 20 | 66 69 6c 65 20 69 6e 74 | source |file int|
|00000270| 6f 20 62 25 0d 00 dc 41 | 20 20 20 62 25 28 49 25 |o b%...A|   b%(I%|
|00000280| 29 3d 9a 23 58 20 20 20 | 20 20 20 20 3a f4 20 63 |)=.#X   |    :. c|
|00000290| 61 72 72 69 61 67 65 20 | 72 65 74 75 72 6e 20 28 |arriage |return (|
|000002a0| 31 33 29 20 6d 61 72 6b | 73 20 65 6e 64 20 6f 66 |13) mark|s end of|
|000002b0| 20 6e 61 6d 65 0d 00 e6 | 12 20 20 f1 20 bd 28 62 | name...|.  . .(b|
|000002c0| 25 28 49 25 29 29 3b 0d | 00 f0 10 20 fd 20 62 25 |%(I%));.|... . b%|
|000002d0| 28 49 25 29 3d 31 33 0d | 00 fa 06 20 f1 0d 01 04 |(I%)=13.|... ....|
|000002e0| 04 0d 01 0e 17 f2 74 72 | 61 6e 73 66 65 72 62 79 |......tr|ansferby|
|000002f0| 74 65 73 28 22 4e 22 29 | 0d 01 22 0e 20 f2 73 77 |tes("N")|..". .sw|
|00000300| 61 70 6e 61 6d 65 0d 01 | 23 04 0d 01 2c 17 f2 74 |apname..|#...,..t|
|00000310| 72 61 6e 73 66 65 72 62 | 79 74 65 73 28 22 54 22 |ransferb|ytes("T"|
|00000320| 29 0d 01 36 0c 20 f2 73 | 77 61 70 74 67 0d 01 4a |)..6. .s|waptg..J|
|00000330| 04 0d 01 54 09 fd 20 c5 | 23 58 0d 01 5e 07 d9 23 |...T.. .|#X..^..#|
|00000340| 30 0d 01 68 2c 20 20 20 | 20 20 20 20 20 20 20 20 |0..h,   |        |
|00000350| 20 20 20 20 20 20 3a f4 | 20 61 6e 6f 74 68 65 72 |      :.| another|
|00000360| 20 74 75 74 6f 72 20 67 | 72 6f 75 70 3f 0d 01 72 | tutor g|roup?..r|
|00000370| 07 fd 20 a3 0d 01 7c 04 | 0d 01 86 0e dd f2 73 77 |.. ...|.|......sw|
|00000380| 61 70 6e 61 6d 65 0d 01 | 90 3f cf 23 5a 3d 8f 23 |apname..|.?.#Z=.#|
|00000390| 5a 2d 31 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |Z-1     |      :.|
|000003a0| 20 69 66 20 61 6e 20 4e | 20 69 73 20 65 6e 63 6f | if an N| is enco|
|000003b0| 75 6e 74 65 72 65 64 20 | 67 65 74 20 6e 61 6d 65 |untered |get name|
|000003c0| 20 66 72 6f 6d 0d 01 9a | 08 43 25 3d 30 0d 01 a4 | from...|.C%=0...|
|000003d0| 37 20 20 e3 20 4a 25 3d | 20 30 20 b8 20 49 25 2d |7  . J%=| 0 . I%-|
|000003e0| 31 20 20 20 20 20 3a f4 | 20 62 25 20 61 6e 64 20 |1     :.| b% and |
|000003f0| 70 75 74 20 69 74 20 69 | 6e 20 70 6c 61 63 65 20 |put it i|n place |
|00000400| 6f 66 20 4e 0d 01 ae 11 | 20 20 20 d5 23 5a 2c 62 |of N....|   .#Z,b|
|00000410| 25 28 4a 25 29 0d 01 b8 | 07 20 20 ed 0d 01 c2 04 |%(J%)...|.  .....|
|00000420| 0d 01 cc 05 e1 0d 01 d6 | 04 0d 01 e0 43 dd f2 73 |........|....C..s|
|00000430| 77 61 70 74 67 20 20 20 | 20 20 20 20 20 20 20 20 |waptg   |        |
|00000440| 3a f4 20 69 66 20 54 20 | 69 73 20 65 6e 63 6f 75 |:. if T |is encou|
|00000450| 6e 74 65 72 65 64 20 72 | 65 70 6c 61 63 65 20 62 |ntered r|eplace b|
|00000460| 79 20 74 75 74 6f 72 20 | 6e 61 6d 65 0d 01 ea 0d |y tutor |name....|
|00000470| cf 23 5a 3d 8f 23 5a 2d | 31 0d 01 f4 08 43 25 3d |.#Z=.#Z-|1....C%=|
|00000480| 30 0d 01 fe 16 20 20 e3 | 20 4a 25 3d 20 31 20 b8 |0....  .| J%= 1 .|
|00000490| 20 a9 28 54 4e 24 29 0d | 02 08 18 20 20 20 d5 23 | .(TN$).|...   .#|
|000004a0| 5a 2c 97 28 c1 54 4e 24 | 2c 4a 25 2c 31 29 29 0d |Z,.(.TN$|,J%,1)).|
|000004b0| 02 12 07 20 20 ed 0d 02 | 1c 05 e1 0d 02 26 04 0d |...  ...|.....&..|
|000004c0| 02 30 18 dd f2 74 72 61 | 6e 73 66 65 72 62 79 74 |.0...tra|nsferbyt|
|000004d0| 65 73 28 4e 54 24 29 0d | 02 3a 08 43 25 3d 30 0d |es(NT$).|.:.C%=0.|
|000004e0| 02 44 13 20 c8 95 20 43 | 25 3c 3e 20 97 28 4e 54 |.D. .. C|%<> .(NT|
|000004f0| 24 29 0d 02 4e 41 20 20 | 43 25 3d 9a 23 59 20 20 |$)..NA  |C%=.#Y  |
|00000500| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 70 |        |    :. p|
|00000510| 75 74 20 62 79 74 65 73 | 20 66 72 6f 6d 20 6d 65 |ut bytes| from me|
|00000520| 72 67 65 66 31 20 69 6e | 74 6f 20 6e 65 77 20 66 |rgef1 in|to new f|
|00000530| 69 6c 65 0d 02 58 3a 20 | 20 d5 23 5a 2c 43 25 20 |ile..X: | .#Z,C% |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |        |     :. |
|00000550| 75 6e 74 69 6c 20 61 20 | 4e 20 6f 72 20 54 20 69 |until a |N or T i|
|00000560| 73 20 65 6e 63 6f 75 6e | 74 65 72 65 64 0d 02 62 |s encoun|tered..b|
|00000570| 06 20 ce 0d 02 6c 05 e1 | 0d 02 76 04 0d 02 80 04 |. ...l..|..v.....|
|00000580| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+